home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Sultan.dxr / scripts_6_waste cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.9 KB  |  63 lines
  1. property spriteNum
  2. global waste, mover, equal, currentselect, foundation, points, gsultan
  3.  
  4. on beginSprite me
  5.   waste = new(script("card pile"))
  6.   sprite(spriteNum).member = member("block", "playing cards")
  7. end
  8.  
  9. on mouseDown me
  10.   if sprite(spriteNum).member <> member("block", "playing cards") then
  11.     puppetSound(3, "pickcard")
  12.     sprite(spriteNum).locZ = spriteNum + 1000
  13.     mover = timeout("mover").new(5, #moveme, me)
  14.     if waste.cards.count > 1 then
  15.       wasting = waste.cards
  16.       sprite(17).member = member(wasting[wasting.count - 1].membername, "playing cards")
  17.     end if
  18.   end if
  19. end
  20.  
  21. on moveme me
  22.   sprite(spriteNum).loc = the mouseLoc
  23. end
  24.  
  25. on mouseUp me
  26.   if sprite(spriteNum).member <> member("block", "playing cards") then
  27.     if equal = 1 then
  28.       puppetSound(3, "pickcard")
  29.       mover.forget()
  30.       sprite(spriteNum).loc = waste.getlastcard().location
  31.       sprite(spriteNum).locZ = spriteNum
  32.       sprite(currentselect).member = member(sprite(the clickOn).memberNum, "playing cards")
  33.       waste.subcard(waste.cards.count)
  34.       if waste.cards.count > 0 then
  35.         sprite(spriteNum).member = member(waste.getlastcard().membername, "playing cards")
  36.       else
  37.         sprite(spriteNum).member = member("block", "playing cards")
  38.       end if
  39.       foundation[makesymbol(currentselect)].addCard(currentselect)
  40.       if foundation[makesymbol(currentselect)].cards.count = 13 then
  41.         gsultan.pTimeout = timeout(string(the ticks) && "sultan").new(5, #dance, gsultan)
  42.       end if
  43.       points = points + 10
  44.       equal = 0
  45.       currentselect = 0
  46.       checkwin()
  47.     else
  48.       if equal = 0 then
  49.         puppetSound(3, "dropcard")
  50.         if not voidp(mover) then
  51.           mover.forget()
  52.         end if
  53.         sprite(spriteNum).loc = waste.getlastcard().location
  54.         sprite(spriteNum).locZ = spriteNum
  55.       end if
  56.     end if
  57.   end if
  58. end
  59.  
  60. on fraggle
  61.   gsultan.pTimeout = timeout(string(the ticks) && "sultan").new(5, #dance, gsultan)
  62. end
  63.